home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fscompr / form1.frm < prev    next >
Text File  |  1997-12-24  |  2KB  |  60 lines
  1. VERSION 5.00
  2. Object = "*\A..\OCX Compressione\FSComprFile.vbp"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2400
  6.    ClientLeft      =   1470
  7.    ClientTop       =   2535
  8.    ClientWidth     =   5235
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2400
  11.    ScaleWidth      =   5235
  12.    Begin FSCompressFile.FSComprFile FSComprFile1 
  13.       Height          =   375
  14.       Left            =   1080
  15.       TabIndex        =   3
  16.       Top             =   480
  17.       Width           =   3855
  18.       _ExtentX        =   6800
  19.       _ExtentY        =   661
  20.       OutputFile      =   "aa"
  21.    End
  22.    Begin VB.CommandButton Command2 
  23.       Caption         =   "Command2"
  24.       Height          =   495
  25.       Left            =   3360
  26.       TabIndex        =   2
  27.       Top             =   1800
  28.       Width           =   1455
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "Command1"
  32.       Height          =   615
  33.       Left            =   1200
  34.       TabIndex        =   0
  35.       Top             =   1440
  36.       Width           =   1695
  37.    End
  38.    Begin VB.Label lblRisultato 
  39.       Caption         =   "Risultato"
  40.       Height          =   255
  41.       Left            =   3360
  42.       TabIndex        =   1
  43.       Top             =   1440
  44.       Width           =   1095
  45.    End
  46. End
  47. Attribute VB_Name = "Form1"
  48. Attribute VB_GlobalNameSpace = False
  49. Attribute VB_Creatable = False
  50. Attribute VB_PredeclaredId = True
  51. Attribute VB_Exposed = False
  52. Option Explicit
  53.  
  54. Private Sub Command1_Click()
  55.     FSComprFile1.Compress
  56.     lblRisultato = FSComprFile1.ResultStatus
  57. End Sub
  58.  
  59.  
  60.